home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 4 / Eagles_Nest_Mac_Collection_Disc_4.TOAST / Desktop Publishing / Zing10 / ZING™.rsrc / STR#_1800.txt < prev    next >
Text File  |  1989-06-26  |  3KB  |  201 lines

  1. definefont pop} bdef 
  2.  
  3. currentdict dup end end /FontName get exch 
  4.  
  5. {exch pop} ifelse} forall} if pop 
  6.  
  7. {Encoding 2 index 2 index put pop 1 add} 
  8.  
  9. exch {dup type /nametype eq 
  10.  
  11. {/Encoding Encoding 256 array copy def 0 
  12.  
  13. /FontName exch def dup length 0 ne 
  14.  
  15. {1 index /FID ne {def} {pop pop} ifelse} forall 
  16.  
  17. /Z {findfont begin currentdict dup length dict begin 
  18.  
  19. % font construction operators 
  20.  
  21. /U {} bdef 
  22.  
  23. /u {} bdef 
  24.  
  25. % group construction operators 
  26.  
  27. /T {grestore} bdef 
  28.  
  29. /o {_D /t {pop _L} def} bdef 
  30.  
  31. /a {_D /t {dup p _A _s P _A _S _L} def} bdef 
  32.  
  33. /r {_D P /t {_A _S _L} def} bdef 
  34.  
  35. /e {_D p /t {_A _s _L} def} bdef 
  36.  
  37. _G currentmatrix pop} bdef 
  38.  
  39. /_D {_g currentmatrix pop gsave concat 
  40.  
  41. /_G matrix def 
  42.  
  43. /_g matrix def 
  44.  
  45. findfont exch scalefont setfont} bdef 
  46.  
  47. /z {_z exch get /_a xdef /_t xdef /_l xdef exch 
  48.  
  49. bind {dup _w exch neg exch neg} bind] def 
  50.  
  51. /_z [{0 0} bind {dup _w exch neg 2 div exch neg 2 div} 
  52.  
  53. _t mul add exch} bdef 
  54.  
  55. /_w {dup stringwidth exch 3 -1 roll length 1 sub 
  56.  
  57. /_L {0 _l neg translate _G currentmatrix pop} bdef 
  58.  
  59. /_A {_a moveto _t exch 0 exch} bdef 
  60.  
  61. forall pop pop pop n} bdef 
  62.  
  63. _stroke _G setmatrix moveto 3 copy pop rmoveto} 
  64.  
  65. charpath currentpoint _g setmatrix 
  66.  
  67. /_S {(?) exch {2 copy 0 exch put pop dup false 
  68.  
  69. /_s /ashow ldef 
  70.  
  71. % text block construction and painting operators 
  72.  
  73. /b {closepath B} bdef 
  74.  
  75. /B {gsave F grestore S} bdef 
  76.  
  77. /s {closepath S} bdef 
  78.  
  79. /S {P _stroke} bdef 
  80.  
  81. /f {closepath F} bdef 
  82.  
  83. /F {p _fill} bdef 
  84.  
  85. /N /n ldef 
  86.  
  87. /n /newpath ldef 
  88.  
  89. % path painting operators 
  90.  
  91. increase flatness) def n _E} if} bdef 
  92.  
  93. {/_e [pathbbox] def /_f (ERROR: can't stroke, 
  94.  
  95. /_stroke {{stroke} stopped 
  96.  
  97. flatness) def n _E} if} bdef 
  98.  
  99. {/_e [pathbbox] def /_f (ERROR: can't fill, increase 
  100.  
  101. /_fill {{fill} stopped 
  102.  
  103. e _f t T grestore} if} bdef 
  104.  
  105. _e 0 get _e 2 get add 2 div _e 1 get _e 3 get add 2 div] 
  106.  
  107. /Courier 20 0 0 1 z [0.966 0.259 -0.259 0.966 
  108.  
  109. 10 M [] 0 d 
  110.  
  111. /_E {_e length 0 ne {gsave 0 g 0 G 0 i 0 J 0 j 1 w 
  112.  
  113. /_e [] def 
  114.  
  115. % error operators 
  116.  
  117. /m {_r moveto} bdef 
  118.  
  119. /L /l ldef 
  120.  
  121. /l {_r lineto} bdef 
  122.  
  123. /Y /y ldef 
  124.  
  125. /y {_r 2 copy curveto} bdef 
  126.  
  127. /V /v ldef 
  128.  
  129. /v {currentpoint 6 2 roll _r curveto} bdef 
  130.  
  131. /C /c ldef 
  132.  
  133. /c {_r curveto} bdef 
  134.  
  135. /_r {transform _R exch _R exch itransform} bdef 
  136.  
  137. /_R {.25 sub round .25 add} bdef 
  138.  
  139. % path construction operators 
  140.  
  141. /w /setlinewidth ldef 
  142.  
  143. /M /setmiterlimit ldef 
  144.  
  145. /J /setlinecap ldef 
  146.  
  147. /j /setlinejoin ldef 
  148.  
  149. /i {dup 0 eq {pop _i} if setflat} bdef 
  150.  
  151. /_i currentflat def 
  152.  
  153. /d /setdash ldef 
  154.  
  155. {_C _M _Y _B _k} def} bdef 
  156.  
  157. /K {/_B xdef /_Y xdef /_M xdef /_C xdef /P 
  158.  
  159. {_c _m _y _b _k} def} bdef 
  160.  
  161. /k {/_b xdef /_y xdef /_m xdef /_c xdef /p 
  162.  
  163. /G {/_B xdef /P {_B setgray} def} bdef 
  164.  
  165. /g {/_b xdef /p {_b setgray} def} bdef 
  166.  
  167. setrgbcolor pop} bind} ifelse def 
  168.  
  169. {/setcmybcolor get} {{1 sub 4 1 roll _K _K _K 
  170.  
  171. /_k /setcmybcolor where  
  172.  
  173. /_K {3 index add neg dup 0 lt {pop 0} if 3 1 roll} bdef 
  174.  
  175. % graphic state operators 
  176.  
  177. /xdef {exch def} bdef 
  178.  
  179. /ldef {load def} bdef 
  180.  
  181. /bdef {bind def} bind def 
  182.  
  183. % definition operators 
  184.  
  185. /Revision 0 def 
  186.  
  187. /Version 0 def 
  188.  
  189. /Adobe_Illustrator_1.1 dup 100 dict def load begin 
  190.  
  191. Systems Incorporated. 
  192.  
  193. % Adobe Illustrator is a trademark of Adobe 
  194.  
  195. % All Rights Reserved. 
  196.  
  197. % Copyright (C) 1987 Adobe Systems Incorporated. 
  198.  
  199. %%BeginProcSet:Adobe_Illustrator_1.1 0 0
  200.  
  201.